home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ShareWare OnLine 2
/
ShareWare OnLine Volume 2 (CMS Software)(1993).iso
/
prog
/
ibrary10.zip
/
DEMO.ASI
< prev
next >
Wrap
Text File
|
1993-04-23
|
2KB
|
86 lines
REM +----------------------------------------------------------------------+
REM | |
REM | IBRARY Copyright (c) 1993 Thomas G. Hanlin III |
REM | |
REM +----------------------------------------------------------------------+
REM ----- Tell 'em what we're about ----------------------------------------
CLS
LOCATE 1, 10
PRINT "IBRARY Copyright (c) 1993 Thomas G. Hanlin III"
PRINT
PRINT
PRINT "This brief demo provides an example of how to use the IBRARY library,"
PRINT "a large collection of routines written for use with David A. Visti's"
PRINT "ASIC compiler. It shows the use of a few of the equipment detection"
PRINT "routines in IBRARY."
PRINT
PRINT
REM ----- Display processor type -------------------------------------------
CALL SUB "Processor" ProcType
PRINT "Processor : ";
IF ProcType = 1 THEN
PRINT "8088"
ELSE
ProcType = ProcType - 1
CALL SUB "StrNB" ProcType St$
PRINT "80";
PRINT St$;
PRINT "86"
ENDIF
REM ----- Display basic equipment info -------------------------------------
CALL SUB "Floppies" Floppies
PRINT "Floppy drives : ";
CALL SUB "StrNB" Floppies St$
PRINT St$
REM ----- Display video adapter type ---------------------------------------
CALL SUB "GetDisplay" Adapter, Mono
tmp = Adapter * 4
tmp = tmp - 3
St$ = MID$("MDA HercCGA EGA MCGAVGA ", tmp, 4)
St$ = RTRIM$(St$)
IF Mono < 0 THEN
St$ = St$ + " on a monochrome monitor"
ELSE
St$ = St$ + " on a color monitor"
ENDIF
PRINT "Display : ";
PRINT St$
REM ----- Display BIOS date ------------------------------------------------
CALL SUB "PCDate" PCDate$
PRINT "ROM BIOS date : ";
PRINT PCDate$
REM ----- Display port info ------------------------------------------------
CALL SUB "CommPorts" CommPorts
PRINT "COM ports : ";
CALL SUB "StrNB" CommPorts St$
PRINT St$
CALL SUB "PrtPorts" PrtPorts
PRINT "LPT ports : ";
CALL SUB "StrNB" PrtPorts St$
PRINT St$